home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / DEV / I-Z / TADS v2.0.sit / TRIVIAL.T < prev   
Text File  |  1992-11-13  |  550b  |  28 lines
  1. /*
  2.  *   NOTE - this file is simply intended tooact as a listing of all of
  3.  *   the objects you're required to define in every TADS game.  This is
  4.  *   not a working game; you should not attempt to play it.
  5.  */
  6.  
  7. init: function;
  8. pardon: function;
  9. init: function
  10. {
  11.     local l;
  12.     
  13.     l := ['one' 'two' 'three'];
  14.     say( l[2] );
  15. }
  16. pardon: function
  17. {
  18. }
  19. numObj: object;
  20. strObj: object;
  21. againVerb: object verb = 'again' 'g';
  22. takeVerb: object verb = 'take' 'get';
  23. Me: object;
  24. quitVerb: object
  25.     verb = 'quit'
  26.     action( actor ) = { quit(); abort; }
  27. ;
  28.